inherited frmGer_DFC: TfrmGer_DFC
  Left = 184
  Top = 238
  Caption = 'Gerar arquivo'
  ClientHeight = 284
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Height = 111
    object Label1: TLabel
      Left = 48
      Top = 9
      Width = 104
      Height = 14
      Caption = 'Ano de Refer'#234'ncia:'
    end
    object Label2: TLabel
      Left = 257
      Top = 9
      Width = 111
      Height = 14
      Caption = 'CRC do Contabilista:'
    end
    object pb: TGauge
      Left = 2
      Top = 112
      Width = 533
      Height = 21
      Progress = 0
      Visible = False
    end
    object Label3: TLabel
      Left = 8
      Top = 86
      Width = 101
      Height = 14
      Caption = 'Salvar arquivo em:'
    end
    object ed_Data: TSpinEdit
      Left = 156
      Top = 5
      Width = 93
      Height = 23
      MaxLength = 4
      MaxValue = 2900
      MinValue = 1900
      TabOrder = 0
      Value = 1900
    end
    object rgp_DFC: TRadioGroup
      Left = 43
      Top = 33
      Width = 449
      Height = 45
      Caption = 'Tipo de Documento:'
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'DFC - Normal'
        'DFC - Retifica'#231#227'o'
        'DFC - Baixa')
      TabOrder = 2
    end
    object ed_CRC: TMaskEdit
      Left = 372
      Top = 5
      Width = 121
      Height = 22
      CharCase = ecUpperCase
      EditMask = 'LL-000000/L-0;1;_'
      MaxLength = 13
      TabOrder = 1
      Text = '  -      / - '
    end
    object ed_Dir: TDirectoryEdit
      Left = 116
      Top = 84
      Width = 413
      Height = 21
      CharCase = ecUpperCase
      NumGlyphs = 1
      TabOrder = 4
    end
    object rgp_GI: TRadioGroup
      Left = 43
      Top = 33
      Width = 449
      Height = 45
      Caption = 'Tipo de Documento:'
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'GI - Normal'
        'GI - Retifica'#231#227'o'
        'GI - Baixa')
      TabOrder = 3
      Visible = False
    end
  end
  inherited Panel2: TPanel
    Top = 217
    inherited bimprimir: TFlatButton
      Caption = '&Gerar Arquivo'
      Enabled = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
        007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
        7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
        99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      OnClick = btncancelarClick
    end
  end
  inherited sb: TStatusBar
    Top = 265
  end
  inherited Panel3: TPanel
    inherited Label4: TLabel
      Width = 120
      Caption = 'Selecione a Empresa'
    end
    inherited ListaEmp: TCheckListBox
      OnExit = ListaEmpExit
    end
  end
  object ENTRADA: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 108
    Top = 34
    object ENTRADACodf: TStringField
      FieldName = 'Codf'
    end
    object ENTRADATipo: TStringField
      FieldName = 'Tipo'
    end
    object ENTRADAEntidade: TStringField
      FieldName = 'Entidade'
    end
    object ENTRADAVlr_Contabil: TFloatField
      FieldName = 'Vlr_Contabil'
    end
    object ENTRADABase_Calc: TFloatField
      FieldName = 'Base_Calc'
    end
    object ENTRADAIsentas: TFloatField
      FieldName = 'Isentas'
    end
    object ENTRADAOutras: TFloatField
      FieldName = 'Outras'
    end
    object ENTRADASubst: TFloatField
      FieldName = 'Subst'
    end
  end
  object SAIDA: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 152
    Top = 34
    object SAIDACodf: TStringField
      FieldName = 'Codf'
    end
    object SAIDATipo: TStringField
      FieldName = 'Tipo'
    end
    object SAIDAEntidade: TStringField
      FieldName = 'Entidade'
    end
    object SAIDAVlr_Contabil: TFloatField
      FieldName = 'Vlr_Contabil'
    end
    object SAIDABase_Calc: TFloatField
      FieldName = 'Base_Calc'
    end
    object SAIDAIsentas: TFloatField
      FieldName = 'Isentas'
    end
    object SAIDAOutras: TFloatField
      FieldName = 'Outras'
    end
    object SAIDASubst: TFloatField
      FieldName = 'Subst'
    end
  end
  object REGISTRO: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 200
    Top = 34
    object REGISTROLin: TStringField
      FieldName = 'Lin'
    end
    object REGISTROValor: TFloatField
      FieldName = 'Valor'
    end
  end
end
